Mission to McDonaldLand/Mission To McDonaldLand.iso/calnz.dxr/00024_Script_smallCakeObj

Text File | 1998-10-25 | 481b | 25 lines

property mychan
on birth me,inchan
  set mychan = inchan
  append(the actorlist,me)
  append(the scriptinstancelist of sprite mychan,me)
  return me
end

on kill me
  deleteone(the actorlist,me)
end

on mousedown
  global cakeLayer
  if the doubleclick then
    set rollchan=rollover()
    repeat with i in the objectlist of cakelayer
      if the mychannel of i = rollchan then
        kill(i)
        return
      end if
    end repeat
  end if
  pass
end